60000 IFLEN(OP$)=0THEN60020
60010 VX=LEN(OP$):FORVV=1TOVX:CC$=MID$(OP$,VV,1):POKE38868+VV,ASC(CC$):NEXTVV
60020 POKE38708,LEN(OP$):RETURN
60100 CC$="":OP$="":SYS38731
60110 GETCC$:IFCC$<>CHR$(13)THENOP$=OP$+CC$:GOTO60110
60120 SYS38740:O9$=OP$
60130 IFO9$=""THENRETURN
60140 IFLEFT$(O9$,1)=" "THENOP=LEN(O9$)-1:O9$=RIGHT$(O9$,OP):GOTO60130
60150 OP=VAL(O9$):RETURN